home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / CRYSTAL / VTABLET.MOD < prev    next >
Encoding:
Modula Implementation  |  1992-05-28  |  1.7 KB  |  70 lines
  1. IMPLEMENTATION MODULE VTablet;
  2.  
  3. (*
  4. VDI Escape Functions for graphic Tablets.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*IMP_SWITCHES*)
  10.  
  11. FROM VDI    IMPORT intin,ptsin,intout,CallVDI,CallVDIEsc,Integer,MaxInput,
  12.                    XY,Point,CallEsc;
  13. FROM PORTAB IMPORT UNSIGNEDWORD;
  14. CAST_IMPORT
  15.  
  16. PROCEDURE VTResolution(    Handle: UNSIGNEDWORD;
  17.                            XRes  : UNSIGNEDWORD;
  18.                            YRes  : UNSIGNEDWORD;
  19.                        VAR XSet  : UNSIGNEDWORD;
  20.                        VAR YSet  : UNSIGNEDWORD);
  21. BEGIN
  22.   intin[0]:= XRes;
  23.   intin[1]:= YRes;
  24.   CallVDIEsc(81,0,2,Handle);
  25.   XSet:= intout[0];
  26.   YSet:= intout[1];
  27. END VTResolution;
  28.  
  29. PROCEDURE VTAxis(    Handle: UNSIGNEDWORD;
  30.                      XRes  : UNSIGNEDWORD;
  31.                      YRes  : UNSIGNEDWORD;
  32.                  VAR XSet  : UNSIGNEDWORD;
  33.                  VAR YSet  : UNSIGNEDWORD);
  34. BEGIN
  35.   intin[0]:= XRes;
  36.   intin[1]:= YRes;
  37.   CallVDIEsc(82,0,2,Handle);
  38.   XSet:= intout[0];
  39.   YSet:= intout[1];
  40. END VTAxis;
  41.  
  42. PROCEDURE VTOrigin(Handle : UNSIGNEDWORD;
  43.                    XOrigin: UNSIGNEDWORD;
  44.                    YOrigin: UNSIGNEDWORD);
  45. BEGIN
  46.   intin[0]:= XOrigin;
  47.   intin[1]:= YOrigin;
  48.   CallVDIEsc(83,0,2,Handle);
  49. END VTOrigin;
  50.  
  51. PROCEDURE VQTDimensions(    Handle    : UNSIGNEDWORD;
  52.                         VAR XDimension: UNSIGNEDWORD;
  53.                         VAR YDimension: UNSIGNEDWORD);
  54. BEGIN
  55.   CallEsc(84,Handle);
  56.   XDimension:= intout[0];
  57.   YDimension:= intout[1];
  58. END VQTDimensions;
  59.  
  60. PROCEDURE VTAlignment(Handle: UNSIGNEDWORD;
  61.                       DX    : UNSIGNEDWORD;
  62.                       DY    : UNSIGNEDWORD);
  63. BEGIN
  64.   intin[0]:= DX;
  65.   intin[1]:= DY;
  66.   CallVDIEsc(85,0,2,Handle);
  67. END VTAlignment;
  68.  
  69. END VTablet.
  70.